home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (10th Edition) / The CD-ROM Directory 10th Edition.ISO / install / inscript.eng < prev    next >
Encoding:
Text File  |  1993-06-28  |  16.9 KB  |  741 lines
  1. ; CD Answer Installation Script - Generic                         jdk,ejf,hg
  2.  
  3. ; <<CDA>> Jun 1 1993;3.2
  4.  
  5. ; single/multiple disk version
  6. ;
  7. ;   To customize this install script:
  8. ;      1. Put the product name (1-8 characters) in a file called
  9. ;         'PRODNAME'. There should be no carriage return/line feed at
  10. ;         the end of the name- the file should contain just the characters
  11. ;         of the name.
  12. ;      2. Put the application name (CD Author 4 character project identifier)
  13. ;         in a file called 'APPLNAME'. Again, no other chars should be
  14. ;         the file. Multiple applications are formed by adding a space,
  15. ;         then another application identifier
  16. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  17. ;         There should not be more than 10 lines.
  18. ;
  19. ;    The first disk must contain the \INSTALL directory.
  20. ;    This contains the general system files for the install
  21. ;    process and may be repeated on disk #2, etc.
  22. ;    The application specific files are kept in a directory
  23. ;    named 'DISK1'. If additional disks are required, create
  24. ;    an (empty) file on the current disk named '\MORE' and
  25. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  26.  
  27. BREAK abort
  28.  
  29. ; install disk
  30. PARSE_PATH <$ProgDir>
  31. SET insdrive = <$Drive>
  32. SET ins = <insdrive>\INSTALL
  33. SET curdisk = 1
  34. GOSUB need_disk
  35.  
  36. ; here are some defaults:
  37.  
  38. ;  default destination drive
  39. PARSE_PATH <$CurDir>
  40. SET def_dest = C:\
  41. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  42.  
  43. ;TFPL - 2-6-93
  44. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  45. ;CONFIG ColorSet = 55
  46. ;TFPL
  47.  
  48. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  49. SET def_cdtype = High Sierra
  50. SET def_driver = FS_HSGEN
  51. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  52. SET def_cdtype = ISO
  53. SET def_driver = FS_ISGEN
  54. :ok_driver
  55.  
  56. ;  language
  57. SET def_lang = <$Language>
  58.  
  59. ; application name(s) (4 char ident(s) on CD-ROM)
  60. READFILE names = <ins>\APPLNAME.
  61.  
  62. ; product name (application name for batch file, subdirectory name)
  63. READFILE prod = <ins>\PRODNAME.
  64.  
  65. ; default dest drive and directory
  66. PARSE_PATH <def_dest><prod>.CD
  67. SET dstdrive = <$Drive>
  68. SET path = <$Dir>
  69. CD <dstdrive>\
  70.  
  71. ; read and display Application Installation Screen
  72. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  73. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  74. GOTO show_banner
  75. :no_banner
  76. SET screen =
  77. ----        CD Answer Installation for:\n\n
  78. ----               <prod>\n\n
  79. ----        Application(s): <names>
  80. :show_banner
  81. CLEAR
  82. TEXT <screen>
  83. SET screen =
  84. WAIT
  85.  
  86. GOTO okdir
  87. :getdir
  88. CLEAR
  89. TEXT \nError -\n\n
  90. ----  The path "<dstdrive><path>" is not allowed!\n
  91. ----There must be both a drive and a valid subdirectory name in order
  92. ---- to install the software.
  93. WAIT
  94. :okdir
  95. CLEAR
  96. TEXT The retrieval software must be installed on your hard disk or on a
  97. ---- formatted floppy disk. The standard values are drive <dstdrive> (normally
  98. ---- the hard disk), and a subdirectory named <path>. To use these values,
  99. ---- press the ┘ (Enter) key twice. To alter them, type the new drive or
  100. ---- subdirectory at the appropriate prompt, then type ┘ (Enter).
  101.  
  102.  
  103. INPUT 6,6,5 dstdrive = Install on drive     ?
  104. INPUT 6,8,40 path    = Install in directory ?
  105. SET dest = <dstdrive><path>
  106. SET confile = <ins>\_DW_.CFG
  107.  
  108. IF "<dstdrive>"=="" GOTO getdir
  109. IF "<path>"=="\" GOTO getdir
  110. IF "<path>"=="" GOTO getdir
  111. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  112.  
  113. CD <dstdrive>\
  114.  
  115. IF NOT DIREXISTS <dest> GOTO nopath
  116. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  117. CLEAR
  118. TEXT The directory "<dest>" already exists.
  119. NEWMENU 1, 3, 70
  120. ;TFPL 2-6-93
  121. ;****MENU Remove the old version; install only software
  122. MENU Remove old version; install new software & only English interface
  123. MENU Remove old version; install all language interfaces
  124. ;TFPL
  125. MENU Remove old version; do not install new software
  126. MENU Alter configuration; do not copy software
  127. MENU Stop the installation without making any changes
  128. ENDCHOICES
  129.  
  130. ;TFPL 2-6-93
  131.  
  132. ;****CHOICE 1
  133. ;****CLEAR
  134. ;****TEXT Deleting previous contents of <dest>...
  135. ;****FOREACH name = <names>
  136. ;**** DEL <dest>\<name>*.*
  137. ;****NEXT
  138. ;****DEL <dest>\FS_*.DRV
  139. ;****DEL <dest>\SC_*.DRV
  140. ;****DEL <dest>\PR_*.DRV
  141. ;****DEL <dest>\GR_*.DRV
  142. ;****DEL <dest>\_DW_*.*
  143. ;****DEL <dest>\ADL_MSGS.*
  144. ;****DEL <dest>\DW.EXE
  145. ;****DEL <dest>\UPDATE.EXE
  146. ;****GOTO tfpl_drive
  147.  
  148.  
  149. CHOICE 1
  150. CLEAR
  151. TEXT Deleting previous contents of <dest>...
  152. FOREACH name = <names>
  153.  DEL <dest>\<name>*.*
  154. NEXT
  155. DEL <dest>\FS_*.DRV
  156. DEL <dest>\SC_*.DRV
  157. DEL <dest>\PR_*.DRV
  158. DEL <dest>\GR_*.DRV
  159. DEL <dest>\_DW_*.*
  160. DEL <dest>\ADL_MSGS.*
  161. DEL <dest>\DW.EXE
  162. DEL <dest>\UPDATE.EXE
  163. SET ch = 2
  164. GOTO okpath
  165. ;TFPL
  166.  
  167. CHOICE 2
  168. CLEAR
  169. TEXT Deleting previous contents of <dest>...
  170. FOREACH name = <names>
  171.  DEL <dest>\<name>*.*
  172. NEXT
  173. DEL <dest>\FS_*.DRV
  174. DEL <dest>\SC_*.DRV
  175. DEL <dest>\PR_*.DRV
  176. DEL <dest>\GR_*.DRV
  177. DEL <dest>\_DW_*.*
  178. DEL <dest>\ADL_MSGS.*
  179. DEL <dest>\DW.EXE
  180. DEL <dest>\UPDATE.EXE
  181. SET ch = 3
  182. GOTO okpath
  183.  
  184.  
  185.  
  186. CHOICE 3
  187. CLEAR
  188. TEXT Removing <dest> directory...
  189. FOREACH name = <names>
  190.  DEL <dest>\<name>*.*
  191. NEXT
  192. DEL <dest>\FS_*.DRV
  193. DEL <dest>\SC_*.DRV
  194. DEL <dest>\PR_*.DRV
  195. DEL <dest>\GR_*.DRV
  196. DEL <dest>\_DW_*.*
  197. DEL <dest>\ADL_MSGS.*
  198. DEL <dest>\DW.EXE
  199. DEL <dest>\UPDATE.EXE
  200. IF NOT EXISTS <dest>\*.* GOTO remdest
  201. TEXT <dest> directory has unknown files, directory not removed!!
  202. WAIT
  203. GOTO norem
  204. :remdest
  205. RD <dest>
  206. :norem
  207. DEL <dstdrive>\<prod>.BAT
  208. GOTO end2
  209.  
  210. CHOICE 4
  211. SET alter = Y
  212. SET confile = <dest>\_DW_.CFG
  213. GOTO okpath
  214.  
  215. CHOICE 5
  216. GOTO end2
  217. ENDCHOICES
  218.  
  219. :nopath
  220. MD <dest>
  221. IF NOT DIREXISTS <dest> GOTO getdir
  222. ;TFPL 2-6-93
  223.  
  224. TEXT New Installation
  225. NEWMENU 1, 3, 64
  226. ;MENU Install only the retrieval software
  227. MENU Install retrieval software and only English language interface
  228. MENU Install retrieval software and all language interfaces
  229. ENDCHOICES
  230.  
  231. ;CHOICE1
  232. ;CLEAR
  233. ;:tfpl_drive
  234. ;GOTO tfp1
  235. ;:tfpl_drive_error
  236. ;TONE
  237. ;TEXT Error: The database is not available on the specified drive...\n\n
  238. ;:tfp1
  239. ;TEXT Database location:\n\n
  240. ;----Please enter the drive letter of the CD-ROM from which you are
  241. ;---- installing the application...
  242. ;
  243. ;INPUT 2,10,1 inst_drive = CD-ROM drive letter ?
  244. ;IF "inst_drive"=="" GOTO tfpl_drive
  245. ;
  246. ;SET instdrive = <inst_drive>:\
  247. ;CONFIG Driver = "<inst_drive>:\"
  248. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  249. ;IF NOT DIREXISTS <instdrive> GOTO tfpl_drive_error
  250. ;SET ch = 1
  251. ;----------------------------------------------------------------------------
  252.  
  253. ;IF NOT EXISTS <confile> GOTO disp_choice
  254. ;DISP 5,14 Reading configuration...
  255. ;READCONFIG <confile>
  256.  
  257.  
  258. ;----------------------------------------------------------------------------
  259. ;GOTO disp_choice
  260.  
  261. CHOICE1
  262. SET ch = 2
  263. GOTO okpath
  264.  
  265. CHOICE2
  266. SET ch = 3
  267. GOTO okpath
  268. ENDCHOICES
  269.  
  270. :okpath
  271.  
  272. ;----------------------------------------------------------------------------
  273.  
  274. IF NOT EXISTS <confile> GOTO no_config
  275. DISP 5,14 Reading configuration...
  276. READCONFIG <confile>
  277. :no_config
  278.  
  279. ;----------------------------------------------------------------------------
  280.  
  281. HSCOUNT hs
  282. IF NOT <hs>==0 GOTO have_hs
  283.  
  284. CLEAR
  285. TEXT  Problem-  You have no CD-ROM drives installed.\n\n
  286. ----Please use the install disk supplied by your CD-ROM drive manufacturer
  287. ---- to install the device driver software, and then repeat this install
  288. ---- program.\n\n
  289. ----Note: The CD-ROM drive install disk will copy some files to your system
  290. ---- disk and modify the CONFIG.SYS and AUTOEXEC.BAT files.\n
  291. ----Unless you have other programs which use the MSCDEX program, it is
  292. ---- recommended that you remove the line calling this program from your
  293. ---- AUTOEXEC.BAT file, since this software does not require it.\n\n
  294. ----Be sure to reboot after the CD-ROM drivers are installed.
  295.  
  296.  
  297. WAIT
  298. ABORT
  299.  
  300. :have_hs
  301.  
  302. SET msg =
  303. IF <hs>==1 GOTO instOne
  304.  
  305. TEXT A selection of <def_cdtype> CD-ROM drivers are available:\n\n
  306. ----Select the <def_cdtype> CD-ROM device driver from this list of available
  307. ---- device drivers using the  and  keys. Press ┘ (Enter) when ready.\n
  308. ----Press Esc to abort installation.
  309. GOTO instMore
  310.  
  311. :instOne
  312. SET msg = A <def_cdtype> CD-ROM driver is installed (see CONFIG.SYS):\n\n
  313.  
  314. :instMore
  315. HSDRIVER hsname = 25, 6
  316. CONFIG Driver = "<def_driver>=<hsname>"
  317. CLEAR
  318. TEXT <msg>The <def_cdtype> CD-ROM driver selected is named "<hsname>". If this is not
  319. ---- correct, press Esc to abort the installation and check your CONFIG.SYS
  320. ---- file.\n\n
  321. ----This software does NOT require the MSCDEX.EXE program (Microsoft
  322. ---- CD-ROM Extensions). Unless another program requires them, you may
  323. ---- remove this program from your \AUTOEXEC.BAT file (where the drive's
  324. ---- INSTALL program may have put it).
  325.  
  326. WAIT
  327.  
  328. CLEAR
  329. TEXT Copying <def_cdtype> CD-ROM Interface...
  330. SET driver_name = FS_ISGEN.DRV
  331. GOSUB copy_driver
  332.  
  333. ;----------------------------------------------------------------------------
  334. :disp_choice
  335. CLEAR
  336. TEXT Display Choices:\n
  337. ----   Use the  and  arrows to select a screen type and
  338. ---- press ┘ (Enter)
  339.  
  340. NEWMENU ? 6 46
  341. MENU Standard Screen     - No graphics
  342. MENU VGA Adaptor
  343. MENU MCGA Adaptor
  344. MENU EGA Adaptor
  345. MENU CGA Adaptor
  346. MENU Hercules Graphics Card
  347. MENU Olivetti, AT&T or Compaq Plasma
  348. MENU Full page display
  349.  
  350. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  351. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  352. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  353. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  354. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  355. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  356. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  357.  
  358. SET Port = N
  359. SET Graphic = N
  360.  
  361. CHOICE 1
  362.  SET scr_type = SC_STD
  363.  SET Port = ?
  364. CHOICE 2
  365.  SET scr_type = SC_VGA
  366.  SET Port = ?
  367. CHOICE 3
  368.  SET scr_type = SC_MCGA
  369.  SET Port = ?
  370. CHOICE 4
  371.  SET scr_type = SC_EGA
  372.  SET Port = ?
  373. CHOICE 5
  374.  SET scr_type = SC_CGA
  375.  SET Port = ?
  376. CHOICE 6
  377.  SET scr_type = SC_HERC
  378. CHOICE 7
  379.  SET scr_type = SC_ATT
  380.  SET Port = ?
  381. CHOICE 8
  382.  SET scr_type = FP
  383. ENDCHOICES
  384.  
  385. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  386.  
  387. CLEAR
  388. TEXT Display Choices:\n
  389. ----   Use the  and  arrows to select a screen type and
  390. ---- press ┘ (Enter)
  391.  
  392. NEWMENU ? 6 46
  393. MENU Cornerstone FullPage
  394. MENU MDS Genius
  395.  
  396. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  397. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  398.  
  399. CHOICE 1
  400.  SET scr_type = SC_CNRST
  401. CHOICE 2
  402.  SET scr_type = SC_MDS
  403. ENDCHOICES
  404.  
  405. :not_full_page
  406.  
  407. SET extra =
  408. IF NOT "<Port>" == "?" GOTO no_scr_opts
  409.  
  410. CLEAR
  411. TEXT Display Detail Choices:\n
  412. ----   Use the  and  arrows to select screen option and
  413. ---- press ┘ (Enter)
  414.  
  415. NEWMENU ? 6 46
  416.  MENU Standard Color or Monochrome Monitor
  417.  MENU Portable Computer   - Built-in Monochrome monitor
  418.  IF "<scr_type>"=="SC_CGA" DO MENU Older Color Screens - interference or "snow"
  419.  
  420. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  421.  
  422. CHOICE 2
  423.   SET extra = P
  424. CHOICE 3
  425.   SET extra = F
  426. ENDCHOICES
  427.  
  428. :no_scr_opts
  429.  
  430. CONFIG Screen = "<scr_type>=<extra>"
  431.  
  432. CLEAR
  433. TEXT Copying Screen Driver...
  434. SET driver_name = <scr_type>.DRV
  435. GOSUB copy_driver
  436.  
  437. ;----------------------------------------------------------------------------
  438.  
  439. CLEAR
  440. TEXT Printer Choices:\n
  441. ----   Use the  and  arrows to select a printer type and
  442. ---- press ┘ (Enter)
  443.  
  444. SET extra =
  445.  
  446. NEWMENU ? 6 46
  447. MENU HP LaserJet family
  448. MENU HP DeskJet family
  449. MENU JLaser printer controller
  450. MENU Other printer
  451.  
  452. CHOICE 1
  453.   SET prn_type = PR_PCL?
  454. CHOICE 2
  455.   SET prn_type = PR_DJ?
  456. CHOICE 3
  457.   SET prn_type = PR_JL?
  458. CHOICE 4
  459.   SET prn_type = PR_STD
  460. ENDCHOICES
  461.  
  462. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  463. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  464. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  465. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  466.  
  467. :pr_type_1
  468.  
  469.   CLEAR
  470.  
  471.   GOSUB pr_detail
  472.  
  473.   NEWMENU ? 6 46
  474.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  475.   MENU HP LaserJet Series II, IID
  476.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  477.  
  478.   CHOICE 1
  479.     SET extra = R
  480.   CHOICE 2
  481.     SET extra = X
  482.   CHOICE 3
  483.     SET extra = XG
  484.   ENDCHOICES
  485.  
  486.   GOSUB pr_detail
  487.  
  488.   NEWMENU ? 6 46
  489.   MENU 300 Dpi (  1Mb memory)
  490.   MENU 150 Dpi (512Kb memory)
  491.   MENU 75  Dpi (256Kb memory)
  492.  
  493.   CHOICE 1
  494.     SET prn_type = PR_PCL30
  495.   CHOICE 2
  496.     SET prn_type = PR_PCL15
  497.   CHOICE 3
  498.     SET prn_type = PR_PCL75
  499.   ENDCHOICES
  500.  
  501.   GOTO pr_type_ok
  502.  
  503. :pr_type_2
  504.  
  505.   GOSUB pr_detail
  506.  
  507.   NEWMENU ? 6 46
  508.   MENU HP DeskJet(+)
  509.   MENU HP DeskJet 500
  510.   MENU HP DeskJet 500C
  511.  
  512.   CHOICE 1
  513.     SET extra = X
  514.   CHOICE 2
  515.     SET extra = XG
  516.   CHOICE 3
  517.     SET extra = XG
  518.   ENDCHOICES
  519.  
  520.   GOSUB pr_detail
  521.  
  522.   NEWMENU ? 6 46
  523.   MENU 300 Dpi
  524.   MENU 150 Dpi
  525.   MENU 75  Dpi
  526.  
  527.   CHOICE 1
  528.     SET prn_type = PR_PCL30
  529.   CHOICE 2
  530.     SET prn_type = PR_PCL15
  531.   CHOICE 3
  532.     SET prn_type = PR_PCL75
  533.   ENDCHOICES
  534.  
  535.   GOTO pr_type_ok
  536.  
  537. :pr_type_3
  538.  
  539.   GOSUB pr_detail
  540.  
  541.   NEWMENU ? 6 46
  542.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  543.   MENU HP LaserJet (all other models)
  544.   MENU Canon LBP (any models)
  545.  
  546.   CHOICE 1
  547.     SET prn_type = PR_JLHP
  548.     SET extra = R
  549.   CHOICE 2
  550.     SET prn_type = PR_JLHP
  551.     SET extra = X
  552.   CHOICE 3
  553.     SET prn_type = PR_JLCAN
  554.   ENDCHOICES
  555.  
  556.   GOTO pr_type_ok
  557.  
  558. :pr_type_4
  559.  
  560.   GOSUB pr_detail
  561.  
  562.   NEWMENU ? 6 46
  563.   MENU 8-bit PC-compatible character set
  564.   MENU 7-bit National ASCII character set
  565.  
  566.   CHOICE 2
  567.     SET extra = 7
  568.   ENDCHOICES
  569.  
  570.   GOTO pr_type_ok
  571.  
  572. :pr_detail
  573. CLEAR
  574. TEXT Printer Detail Choices:\n
  575. ----   Use the  and  arrows to select printer option and
  576. ---- press ┘ (Enter)
  577. RETURN
  578.  
  579. :pr_type_ok
  580.  
  581. SET port =
  582.  
  583. NEWMENU ? 6 40
  584. MENU LPT1       Parallel Printer # 1
  585. MENU COM1       Serial Printer   # 1
  586. MENU LPT2       Parallel Printer # 2
  587. MENU COM2       Serial Printer   # 2
  588. MENU LPT3       Parallel Printer # 3
  589. MENU LPT4       Parallel Printer # 4
  590. MENU PRN        DOS current printer
  591.  
  592. CLEAR
  593. TEXT Printer Connection Choices:\n
  594. ----   Use the  and  arrows to select a printer port and
  595. ---- press ┘ (Enter)
  596.  
  597. CHOICE 1
  598.  SET port = LPT1,
  599. CHOICE 2
  600.  SET port = COM1,
  601. CHOICE 3
  602.  SET port = LPT2,
  603. CHOICE 4
  604.  SET port = COM2,
  605. CHOICE 5
  606.  SET port = LPT3,
  607. CHOICE 6
  608.  SET port = LPT4,
  609. CHOICE 7
  610.  SET port = PRN,
  611. ENDCHOICES
  612.  
  613. CONFIG Printer = "<prn_type>=<port><extra>"
  614.  
  615. CLEAR
  616. TEXT Copying Printer Driver...
  617. SET driver_name = <prn_type>.DRV
  618. GOSUB copy_driver
  619.  
  620. ;----------------------------------------------------------------------------
  621. IF "<alter>"=="Y" GOTO done
  622.  
  623. :read_disk
  624. GOSUB need_disk
  625. ;TFPL 3-6-93
  626. IF "<ch>"=="1" GOTO inst_only_soft
  627. IF "<ch>"=="2" GOTO inst_only_eng
  628. IF "<ch>"=="3" GOTO inst_all
  629.  
  630.  
  631. :inst_only_eng
  632. CLEAR
  633.  
  634. TEXT Installing Application files for English interface...
  635. COPY_OPT <insdrive>\DISK<curdisk>\*.ENG <dest>
  636. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  637. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  638. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  639. COPY_OPT <ins>\_DW_MSGS.ENG <dest>
  640. COPY_OPT <ins>\ADL_MSGS.ENG <dest>
  641. GOTO adl_dw_message
  642.  
  643.  
  644. :inst_all
  645. ;TFPL
  646. CLEAR
  647.  
  648. TEXT Installing Application files...
  649. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  650.  
  651. COPY_OPT <ins>\_DW_MSGS.* <dest>
  652. COPY_OPT <ins>\ADL_MSGS.* <dest>
  653. ;TFPL 7-6-93
  654. GOTO adl_dw_message
  655.  
  656. :inst_only_soft
  657. CLEAR
  658.  
  659. TEXT Installing only software files...
  660. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  661. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  662. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  663. COPY_OPT <ins>\_DW_MSGS.* <dest>
  664. COPY_OPT <ins>\ADL_MSGS.* <dest>
  665. ;TFPL
  666.  
  667. :adl_dw_message
  668. ;Copy adl and dw message files
  669. IF NOT DIREXISTS <ins> GOTO skip_message_files
  670. COPY_OPT <ins>\UPDATE.EXE <dest>
  671. :skip_message_files
  672.  
  673. CALC curdisk = <curdisk> + 1
  674. IF EXISTS <insdrive>MORE GOTO read_disk
  675.  
  676. CONFIG Language = "<def_lang>"
  677. goto DONE
  678.  
  679. :abort
  680. if "<dest>"=="" GOTO nofiles
  681. if "<alter>"=="Y" GOTO nofiles
  682. CLEAR
  683. TEXT \n\n!!! Installation Aborted !!!\n\n
  684. ----   Removing any copied files...
  685. UNCOPY
  686. :nofiles
  687. CLEAR
  688. TEXT \n\n!!! Installation Aborted !!!\n\n
  689. goto END
  690.  
  691. :copy_driver
  692. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  693. CALC curdisk = <curdisk> + 1
  694. GOSUB need_disk
  695. GOTO copy_driver
  696. :ok_copy
  697. COPY <ins>\<driver_name> <dest>
  698. RETURN
  699.  
  700. :need_disk
  701. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  702. :retry_disk2
  703. CLEAR
  704. TEXT Insert Install Disk Number <curdisk> and press ┘ (Enter) when ready.
  705. WAIT
  706. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  707.  
  708. CLEAR
  709. TEXT The disk inserted is not Installation Disk Number <curdisk> !
  710. NEWMENU ?, 3, 15
  711. MENU Retry
  712. MENU Abort
  713.  
  714. CHOICE 1
  715. GOTO retry_disk2
  716. ENDCHOICES
  717.  
  718. ABORT
  719.  
  720. :done
  721. CLEAR
  722. TEXT Updating Configuration
  723. WRITECONFIG <dest>\_DW_.CFG
  724. IF "<alter>"=="Y" GOTO end
  725. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  726.  
  727. CLEAR
  728. TEXT \n  Installation complete!\n\n
  729. ----A batch file was created in the <dstdrive>\ directory with the name <prod>.\n\n
  730. ----To execute the program, type:\n\n
  731. ----  <prod> ┘ (Enter)\n\n
  732. ----Important: In order for this command to work as shown, you must be in
  733. ---- the <dstdrive>\ directory or have it in your PATH variable.
  734.  
  735.  
  736. :end
  737. WAIT
  738.  
  739. :end2
  740. CD <$CurDir>
  741.